home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
BORL_TIP
/
TI100
/
TI189.ASC
< prev
next >
Wrap
Text File
|
1991-09-11
|
5KB
|
199 lines
PRODUCT : TURBO DATABASE TOOLBOX NUMBER : 189
VERSION : 1.00x
OS : MS-DOS, CP/M-86, CP/M-80
DATE : July 14, 1986 PAGE : 1/3
TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
This handout describes the code modifications that upgrade the
Turbo Database Toolbox to version 1.01. Turbo Database Toolbox is
provided in source code (except for GINST). You can make these
changes directly to the source code.
It has been discovered that the serial numbers on Turbo Database
Toolbox diskettes are not completely reliable indicators of
whether these fixes have been incorporated. To be safe, take a
few minutes to review your copy of the Turbo Database Toolbox and
determine which, if any, of the following fixes are necessary.
The Turbo Database Toolbox has been released as Version 1.00,
Version 1.01, and Version 3.00. Generally, the changes described
below will update Version 1.00 to Version 1.01. Again, look your
Version 1.01 over and verify that these fixes have been
implemented.
If you have Version 3.00 of Turbo Database Toolbox, the changes
to ACCESS.BOX (or ACCESS3.BOX) have been incorporated along with
other changes relating to Turbo Pascal, Version 3.0). However,
you should look at the changes below that pertain to other files
in the Turbo Database Toolbox.
A. GENERAL CHANGES
If you make the changes listed below to Version 1.00 of the
Turbo Database Toolbox, change the headers of ACCESS.BOX,
GETKEY.BOX, ADDKEY.BOX, and DELKEY.BOX to say:
"TURBO-Access Version 1.01" and "Copyright (C) 1984, 85."
B. CHANGES TO ACCESS.BOX
Add lines 1) and 2) in the following two places:
Immediately after the "Assign(...)" in procedure MakeFile;
Immediately after the "Assign(...)" in procedure OpenFile:
1) IOstatus:=IOresult;
2) TaIOcheck(DatF, 0);
PRODUCT : TURBO DATABASE TOOLBOX NUMBER : 189
VERSION : 1.00x
OS : MS-DOS, CP/M-86, CP/M-80
DATE : July 14, 1986 PAGE : 2/3
TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
Add the following line immediately after "PutRec(...)"
in procedure CloseIndex:
Updated := false;
Note: Without the above change, an index file can become
corrupted if you close an index file, and then open
another while in the middle of your program.
C. CHANGES TO ADDKEY.BOX
In the very last three lines of the file, change:
FROM: end;
end;
end;
TO: end;
PP := 0;
end;
end;
D. CHANGES TO DELKEY.BOX
In the very last four lines of the file, change:
FROM: end;
end;
end;
end;
TO: end;
end;
PP := 0;
end;
end;
E. CHANGES TO SORT.BOX
About 17 lines after the main BEGIN of procedure QuickSort,
change:
FROM: M := (I+J) Div 2;
PRODUCT : TURBO DATABASE TOOLBOX NUMBER : 189
VERSION : 1.00x
OS : MS-DOS, CP/M-86, CP/M-80
DATE : July 14, 1986 PAGE : 3/3
TITLE : UPDATE FROM VERSION 1.00 TO VERSION 1.01
TO: M := (I+J) Shr 1;
Note: This is not just for efficiency, the old "Div 2"
version can cause an arithmetic run-time error when
sorting large files.
F. CHANGES TO SORT1.PAS AND SORT2.PAS
The TurboSort function should not be used as a parameter to
a Write or WriteLn statement, as this may result in an
illegal recursive call to Read or Write. Make the following
changes to the sample programs SORT1.PAS and SORT2.PAS
Add the following variable declaration to the VAR section of
both main programs (pages 71, 75, 78, and 82 of the Turbo
Database Toolbox manual).
x : integer;
Throughout SORT1.PAS and SORT2.PAS, replace each occurrence
of the following line:
WriteLn(TurboSort(SizeOf(CustRec)));
with the following TWO lines:
x:=TurboSort(SizeOf(CustRec));
WriteLn(x);
If this is not fixed in your copy of the Turbo Database
Toolbox, there will be one occurrence of this in SORT1.PAS,
and two in SORT2.PAS. See also pages 74, 76, 78 (two
occurrences) of the Turbo Database Toolbox Reference Manual.